home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / SAAT.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-05-12  |  1.2 KB  |  36 lines
  1. 10 ' SAAT
  2. 20 DIM SAAT$(30),GSAAT$(12),VSAAT$(12)
  3. 30 FOR  T=0 TO 30
  4. 40     DATA Oniki,Bir,ÿki,Üç,Dört,Beƒ,Altì,Yedi,Sekiz,Dokuz,On,Onbir,Oniki,Onüç
  5. 50     DATA Ondört,Çeyrek,Onaltì,Onyedi,Onsekiz,Ondokuz,Yirmi,Yirmibir,Yirmiiki
  6. 60     DATA Yirmiüç,Yirmidört,Yirmibeƒ,Yirmialtì,Yirmiyedi
  7. 70     DATA Yirmisekiz,Yirmidokuz,Buçuk
  8. 80    READ SAAT$(T) : NEXT
  9. 90 '
  10. 100 FOR  T=1 TO 12
  11. 110    DATA Biri,ÿkiyi,Üçü,Dördü,Beƒi,Altìyì
  12. 120    DATA Yediyi,Sekizi,Dokuzu,Onu,Onbiri,Onikiyi
  13. 130   READ GSAAT$(T) : NEXT
  14. 140 '
  15. 150 FOR  T=1 TO 12
  16. 160    DATA Bire,ÿkiye,Üçe,Dörde,Beƒe,Altìya
  17. 170    DATA Yediye,Sekize,Dokuza,Ona,Onbire,Onikiye
  18. 180   READ VSAAT$(T) : NEXT
  19. 190 '
  20. 200 FOR B= 1 TO 5
  21. 210    IF B=1 OR B=2 THEN SA$=SA$+MID$(TIME$,B,1)
  22. 220    IF B=4 OR B=5 THEN DK$=DK$+MID$(TIME$,B,1)
  23. 230 NEXT
  24. 240 CLS
  25. 250 SA=VAL(SA$):IF SA>=12  THEN SA=SA-12:K=1
  26. 260 DK=VAL(DK$):IF DK>30 THEN DK=60-DK:V=1
  27. 270 '
  28. 280 PRINT SA$+":"+DK$:PRINT
  29. 290 PRINT "Saat: ";
  30. 300   IF K=0 THEN COLOR 15
  31. 310   IF DK$="00" THEN PRINT SAAT$(SA)+".":V=2
  32. 320   IF DK$="30" THEN PRINT SAAT$(SA)+" "+SAAT$(DK)+".":V=2
  33. 330   IF V=0 THEN PRINT GSAAT$(SA)+" "+SAAT$(DK)+" Geçiyor."
  34. 340   IF V=1 THEN PRINT VSAAT$(SA+1)+" "+SAAT$(DK)+" Var."
  35. 350 COLOR 7: ' MURAT NECÿOªLU
  36.